home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_143
/
rim
/
rimsrcami.arc
/
F2COM.BLK
< prev
next >
Wrap
Text File
|
1988-01-05
|
532b
|
18 lines
C
C *** / F 2 C O M / ***
C
C FILE 2 COMMON CONTROL VARIABLES
C
COMMON /F2COM/ FILE2,LENBF2,LF2REC,LF2WRD,CURBLK(3),MODFLG(3)
INTEGER FILE2
INTEGER CURBLK
C
C VARIABLE DEFINITIONS:
C FILE2---FILE NAME OR UNIT FOR FILE2 - THE DATA FILE
C LENBF2--LENGTH OF BLOCKS ON FILE2
C LF2REC--NEXT AVAILABLE RECORD ON FILE2
C LF2WRD--NEXT AVAILABLE WORD IN LF2REC
C CURBLK--CURRENT RECORDS IN CORE
C MODFLG--NON-ZERO FLAG INDICATES RECORD IN CORE HAS MODS
C